plotly

library(ggplot2)
library(palmerpenguins)
library(plotly)

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

penguin_colors = c("darkorange","purple","cyan4")


fig <- plot_ly(data = penguins, x = ~flipper_length_mm, y = ~bill_length_mm, type = "scatter", color = ~species, colors = penguin_colors)

fig

## No scatter mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode

## Warning: Ignoring 2 observations

# scatterplot with more customization
fig <- plot_ly(data = penguins, x = ~flipper_length_mm, y = ~bill_length_mm, color = ~species, colors = penguin_colors,
               mode = "markers", symbol = ~species, symbols = c("circle","triangle-up","square"), size = 10)

fig

## No trace type specified:
##   Based on info supplied, a 'scatter' trace seems appropriate.
##   Read more about this trace type -> https://plotly.com/r/reference/#scatter

## Warning: Ignoring 2 observations

p <- ggplot(data = penguins,aes(x = flipper_length_mm, 
                           y = bill_length_mm)) +
  geom_point(aes(color = species, 
                 shape = species,
                 alpha = 0.8)) +
  scale_color_manual(values = c("darkorange","purple","cyan4")) +
  scale_alpha(guide = 'none') +
  labs(title = "Flipper and bill length",
       subtitle = "Dimensions for Adelie, Chinstrap and Gentoo Penguins at Palmer Station LTER",
       x = "Flipper length (mm)",
       y = "Bill length (mm)",
       color = "Penguin species",
       shape = "Penguin species") +
  theme_bw()

ggplotly(p)